home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 36 / Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso / -seriously_amiga- / graphics / pdhfic_2.4 / install < prev    next >
Text File  |  1998-11-30  |  2KB  |  109 lines
  1. ; $VER: PDHFIC 2.2 (01.10.98)
  2.  
  3. (welcome)
  4.  
  5. (set #largepartition @default-dest)
  6.  
  7. (set #dest
  8.     (askdir
  9.         (prompt "Where do you want to install PDHFIC?\n"
  10.         "A drawer named 'PDHFIC' will be created there.")
  11.         (help @askdir-help)
  12.         (default @default-dest) ; defaults to largest partition
  13.     )
  14. )
  15.  
  16. (set @default-dest (tackon #dest "PDHFIC"))
  17.  
  18. (if (exists @default-dest (noreq))
  19.     (makedir @default-dest (infos))
  20. )
  21.  
  22. (copyfiles
  23.     (prompt "Copying PDHFIC")
  24.     (help @copyfiles-help)
  25.     (source "")
  26.     (dest @default-dest)
  27.     (infos)
  28.     (optional "oknodelete" "force" "askuser")
  29.     (choices "PDHFIC" "extscale" "PDHFIC.guide" "Examples")
  30. )
  31.  
  32. (complete 40)
  33.  
  34. (if (exists "PPaint:" (noreq))
  35.     (
  36.         (copyfiles
  37.             (prompt "Copying SaveSCR.pprx")
  38.             (help @copyfiles-help)
  39.             (source "ARexx/SaveSCR.pprx")
  40.             (dest "PPaint:Rexx")
  41.             (confirm)
  42.             (infos)
  43.         )
  44.         
  45.         (set #instmacro
  46.             (askbool
  47.                 (prompt "Do you want SaveSCR.pprx to be installed "
  48.                 "into PPaint's macro list?")
  49.                 (help @askbool-help)
  50.                 (default 1)
  51.             )
  52.         )
  53.         
  54.         (if #instmacro
  55.             (
  56.                 (set #ppaint
  57.                     (askfile
  58.                         (prompt "Please select your PPaint settings file")
  59.                         (help "Warning: If there are any spaces in the filename, then this will not work properly!\n\n" @askfile-help)
  60.                         (default "PPaint:PPaint_Prefs/Startup_1.set")
  61.                     )
  62.                 )
  63.                 
  64.                 (run "ECHO >>" #ppaint " \"MACRO = *\"Save SCR*\", *\"*\", *\"PPaint:Rexx/SaveSCR.pprx*\", *\"*\"\"")
  65.                 
  66.             )
  67.         )
  68.     )
  69. )
  70.  
  71. ; MACRO = "Save SCR", "", "PPaint:Rexx/SaveSCR.pprx", ""
  72.  
  73. (complete 80)
  74.  
  75. (set #zxam
  76.     (askbool
  77.         (prompt "Do you have the emaulator 'ZXAM' installed?")
  78.         (help "The included script 'LoadDT.zxam' will "
  79.         "allow you to load Datatypes images into ZXAM's Spectrum "
  80.         "screen memory.")
  81.         (default 0)
  82.     )
  83. )
  84.  
  85. (if #zxam
  86.     (
  87.         (set #zxamrexx
  88.             (askdir
  89.                 (prompt "Please select ZXAM's script drawer.")
  90.                 (help @askdir-help)
  91.                 (default (tackon #largepartition "ZXAM/ZXAM_Rexx"))
  92.             )
  93.         )
  94.         
  95.         (copyfiles
  96.             (prompt "Copying LoadDT.zxam...")
  97.             (help @copyfiles-help)
  98.             (source "ARexx/LoadDT.zxam")
  99.             (dest #zxamrexx)
  100.             (infos)
  101.         )
  102.     )
  103. )
  104.  
  105. (complete 100)
  106.  
  107. (exit)
  108.  
  109.